home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cinema Studio: Frank Herrmann
/
Cinema Studio - Frank Herrmann.iso
/
tools
/
raystorm
/
arexx
/
marble.ray
< prev
next >
Wrap
Text File
|
1995-08-06
|
1KB
|
48 lines
/***************
* NAME: marble.ray
* VERSION: 1.0 06.08.1995
* DESCRIPTION: Test of marble texture
* AUTHORS: Andreas Heumann
* BUGS: none
* TO DO: none
* HISTORY: DATE NAME COMMENT
* 06.08.95 ah initial release
***************/
OPTIONS RESULTS
IF ~SHOW('P','RAYSTORM') THEN DO /* if not already running, start RayStorm */
ADDRESS COMMAND 'run >NIL: <NIL: /raystorm'
ADDRESS COMMAND WaitForPort RAYSTORM
END
ADDRESS RAYSTORM
TEXTUREPATH '/textures'
SETSCREEN 160 128
SETCAMERA '0 0 -25 0 0 0 0 1 0 25 20'
SETWORLD 255 0 255 20 20 20
POINTLIGHT '20 20 -40 255 255 255'
NEWSURFACE MAP
DIFFUSE 255 255 255
SPECULAR 0 0 0
IMTEXTURE 'marble.itx 0 0 0 0 0 0 0.01 0.01 0.01 150 50 50 0 0 0 0 0 0 7'
NEWSURFACE MAP1
DIFFUSE 255 255 255
SPECULAR 0 0 0
IMTEXTURE 'marble.itx 0 0 0 0 0 0 0.01 0.01 0.01 0 0 0 0 0 0 255 255 255 7'
SPHERE 'MAP -2.5 0 0 2'
SPHERE 'MAP1 2.5 0 0 2'
STARTRENDER
SAVEPIC 'marble.iff'
CLEANUP
exit 0